﻿Public Class CabeceraMinisterio

    Inherits System.Web.UI.MasterPage

    Public ReadOnly Property menuOpciones() As Menu
        Get
            Return Me.MenuOpcionesCabecera
        End Get
    End Property

    Public ReadOnly Property LoginStatusCabecera() As LoginStatus
        Get
            Return lgnStatusCabecera
        End Get
    End Property

    Public ReadOnly Property ComboPerfiles() As DropDownList
        Get
            Return cboPerfiles
        End Get
    End Property

    Public ReadOnly Property LabelPerfil() As Label
        Get
            Return lblPerfil
        End Get
    End Property

    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try


            If Not Page.IsPostBack Then
                If HttpContext.Current.User.Identity.IsAuthenticated Then

                    PersLOgueada.CargaComboCnPeril(cboPerfiles, lblPerfil)

                    'si la variable perfil esta cargada vuelvo asignar el perfil que tenia al combo
                    ' si la variabl esta vacia es por que es la primera vez q entra 
                    If PersLOgueada.dev_perfilUsuario = "" Then
                        PersLOgueada.Set_Perfil(cboPerfiles.Text)
                    Else
                        cboPerfiles.Text = PersLOgueada.dev_perfilUsuario
                    End If
                    '-----------------------------------

                    FG.cargarMenuxUsuario(MenuOpcionesCabecera, PersLOgueada.dev_perfilUsuario)

                    lgnStatusCabecera.Visible = True
                    cboPerfiles.Visible = True
                    lblPerfil.Visible = True
                    MenuOpcionesCabecera.Visible = True

                Else
                    'reinstancio la clase persona 
                    MI_persona.Resetear_PersLOgueada()

                    lgnStatusCabecera.Visible = False
                    cboPerfiles.Items.Clear()
                    cboPerfiles.Visible = False
                    lblPerfil.Visible = False
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub lgnStatusCabecera_LoggingOut(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles lgnStatusCabecera.LoggingOut
        MI_persona.Resetear_PersLOgueada()
        menuOpciones.Visible = False
        ComboPerfiles.Visible = False
        lblPerfil.Visible = False
        lgnStatusCabecera.Visible = False
        FormsAuthentication.SignOut()
        Response.Redirect("Inicio.aspx")
    End Sub

    Private Sub cboPerfiles_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboPerfiles.SelectedIndexChanged
        PersLOgueada.Set_Perfil(cboPerfiles.Text)
        FG.cargarMenuxUsuario(MenuOpcionesCabecera, PersLOgueada.dev_perfilUsuario)
        MenuOpcionesCabecera.Visible = True
        Response.Redirect(FG.redirectDefaultPage)
    End Sub


    Private Sub cboPerfiles_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboPerfiles.TextChanged
        PersLOgueada.Set_Perfil(cboPerfiles.Text)
        FG.cargarMenuxUsuario(MenuOpcionesCabecera, PersLOgueada.dev_perfilUsuario)
        MenuOpcionesCabecera.Visible = True
        Response.Redirect(FG.redirectDefaultPage)

    End Sub

End Class